home *** CD-ROM | disk | FTP | other *** search
/ Scientific American: The Amateur Scientist / Scientific American - The Amateur Scientist (Tinker's Guild)(2000).iso / amsci01 / 1980 / 11 / 1980-11-02.code < prev    next >
Text File  |  2000-09-11  |  613b  |  17 lines
  1. <CODE>
  2. 10 CLS: INPUT "NUMBER OF DOTS"; D: DIM X(D), Y(D) <BR>
  3. 20 INPUT "SHIFT SIZE=? ANSW IN X, Y"; SX, SY:CLS <BR>
  4. 30 IF SX=0 THEN N=0 ELSE N=1 <BR>
  5. 40 IF SY=0 THEN M=0 ELSE M=1 <BR>
  6. 50 FOR K=1 TO D: X(K)=RND(127): Y(K)=RND(47) : NEXT K <BR>
  7. 60 FOR J=1 TO 15: CLS:PRINT @ 0,J; <BR>
  8. 70 FOR K=1 TO D: X=X(K) - (SX+J)*N: Y=Y(K) - (SY+J)*M: SET (X(K), Y(K) ) <BR>
  9. 80 IF Xɘ OR Yɘ GO TO 100 <BR>
  10. 90 IF POINT (X,Y) THEN GO TO 100 ELSE SET (X,Y) <BR>
  11. 100 NEXT K <BR>
  12. 110 FOR L=1 TO 400 : NEXT L <BR>
  13. 120 NEXT J 400 GO TO 400 <BR>
  14. </CODE>
  15.  
  16. A program for shifting a random-spot display horizontally and vertically
  17.